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OSCILLOSCOPE VECTOR GENERATOR 


DECUS Program Library Write-up DECUS No. 8-249 

ABSTRACT 


VCT is a subroutine requiring exactly one page (128 words) of memory. Its purpose is to draw a 
linear vector from any point on an oscilloscope display to any other point. There are 5 arguments 
in the subroutine calling sequence which specify the starting point (X^, Yj), the ending point 


(X 2 / Y 2 ) and a stepsize. The stepsize (range 1 to 7) determines the point density along the 
vector. Minimum hardware requirements are EAE and Type 34D display. 


DESCRIPTION 


VCT is a subroutine which will draw a line between any two points on the Type 34D oscilloscope. 
A line will be drawn between the points (Xy Y^) and (X 2 , Ywhere Xy Yj, X 2 / Y 2 are 

integers within the range 0 to 1023 (decimal). The calling sequence for VCT is: 


JMS VCT 

x . 

Y i 

X 2 

Y- 


STEPSIZE 


The stepsize determines the distance between intensified points. The stepsize must be greater 
than 0 and less than 8. Execution time of VCT is determined largely by the length of the line 
and the stepsize. The resolution of the Type 34D is such that using a stepsize of 4, VCT 
generates a line that appears to be solid. A stepsize of 8 will generate a line in which individual 
intensified points will be visible. 


THEORY OF OPERATION 


The equation for a straight line is: 

Y = MX + B where: M = slope of the line 

B = Y axis intercept 

Given two points (X ]7 Y^and (X 2 , Y 2 ), the slope is found by: 













<V Y 1> 


(X 2 - X,) 


M= 

0 ) 

and the intercept is: 

(2) B = Yj- MX 1 

VCT uses (1) and (2) to set up constants which can be used to determine all intermediate points 
along the specified line vector. 

A difficulty arises however, when M is very large (vector approaching the vertical). In this 
situation, the result of the multiplication MX may exceed the 12b,t capacity of the POP 8 
word. To avoid the time consuming manipulation of double precision calculations, a trick has 
been used so that the value of M is always less than or equal to 1. The trick is simply th 
whenever M is greater than 1, X and Y values are interchanged and the basic equation: 

X = MY + B 

is used instead. To make the line plot correctly however, the DXL and DYL instructions must 
also be interchanged. 

When the constants M and B have finally been determined, the display loop is enter * d * J h ® 
first intensified point is (X^) and thereafter the steps.ze is added to the value, the basic 

equation is solved for the corresponding Y value, and the new point is intensified. This process 
continues until the X value of the last intensified point is within one stepsize of X 2 * 

Each execution of the display loop required approximately 148 microseconds. A ' len9 ' h 

vector with minimum stepsize would require about .16 seconds to be displayed. The resolution 
of the Type 34D is such that a stepsize of 4 will still yield a vector which appears to be a solid 
line, but the display time for the example above would be reduced by a factor of 4 to a ou 

.04 seconds. 

RESTRICTIONS 

Note that this routine requires an EAE (Type 182, or KE8/I) and, of course, the Type 34D 
(or VC8/I) oscilloscope control. 

PROGRAMMING LANGUAGE 

The routine was originally written with the PALD disk monitor system assembler in mind 
However, the only uncompatible statement in the subroutine for the PAL III assembler is the 
pH "Tseudooperator which occurs in the first line of text The VCT origin shou d however, 
occur at the beginning of a computer page. VCT is exactly one page (128 words) long. 

The mnemonics MQL, MUY, DVI, MQA, DXL, DYL, and DIX are used in the subroutine and 
must be user defined in the fixed symbol table of the assembler in use. 
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/ROUTINE TO GENERATE LINE BETWEEN (XI,YD AND (X2 Y2) 
/-ON TRE DISPLAY UNIT ’ ^X^,Y/; 

/AUGUST 5, 1969 ---... -.- 

/ 


VCT, 00 

CLA 


/INITIALIZE DISPLAY COMMANDS 


TAD 

DCA 

TAD 

DCA 

T A 

VCTTMP+7 

VCTDXY 

VCTTMP+6 

VCTDXY+5 

/GET 

/GET 

A DXL 

A DYL 

1 A J 

VCTTRP+T ~ 

/-5 


DCA 

VCTTMP 

/USE 

AS COUNTER 

TAD 

VCTTMP+4 

/GET 

ADRCVCTXl) 

DCA 

VCTMUY 

/USE 

AS POINTER 

TAD 

I VCT 

/PICK 

UP ARGUMENTS 

ISZ 

A M f-V 

VCT 



A NL7 

VC ri Mr+3 

/MASK 

~W1~TH 1777 

DCA 

I VCTMUY 



ISZ 

VCTMUY 



ISZ 

VCTTMP 



JMP 

.-6 




/ELIMINATE ZERO STEP SITE- 


TAD VCTX1+4 
SNA 
I AC 

DCA VCTX1 + 4 


/CALCULATE SLOPE OF LINE 


JMS VCTGDX 
SNA 
I AC 

DCA-VCTDX 

RAR 

DCA VCTMUY+6 
TAD VCTX1+1 
CIA CLL 
TAD VCTX1+3 
SPA 
CIA 
SNA 
I AC 

DCA VCTDY 
TAD VCTMUY+6 
SNA CLA 
CML 
SNL 

TAD VCTTMP+2 
TAD VCTTMP+1 
DCA VCTMUY+6 
TAD VCTDY 
MQL DVI 


/AC = ABS(X2-X1 ) 
/DISALLOW X1=X2 


/GET LINK 

/=4000 IF (X2-X1) IS +VE 
/CALC ABS(Y2-Y1) 


/DISALLOW Y2=Y1 


/SLOPE ALREADY -VE? 

/REVERSE SKIP SENSING IF SLOPE ALREADY -VE 
/NO - SET SLOPE 
/41+NOP = CIA (-VE SLOPE) 

/NOP 


/CALC ACTUAL SLOPE : DY/DX 
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VCTDX, 


00 

DCA VCTMUY+2 
TAD VCTDX 
DCA VCTMUY+4 
MQA 

SNA CLA 
JMP VCTA 


/SLOPE .GE. 1 " REVERSE DYL, 


/NUMERATOR 

/DENOMINATOR 


DXL INSTS, RECALC SLOPE 


TAD VCTDX 
MQL DV1 

VCTDY, 00 
SNA 

TAD VCTDY 
DCA VCTMUY+2 

TAD VCTDY. 

DCA VCTMUY+4 
TAD VCTX1+1 
DCA VCTTMP 
TAD VCTX1 
DCA VCTX1+1 
TAD VCTTMP 
DCA VCTX1 
TAD VCTX1+3 
DCA VCTX1+2 


TAD VCTTMP+6 

DCA VC1DX Y 

TAD VCTTMP+7 
DCA VCTDXY+5 


/SET SLOPE = DX/DY 


/SLOPED 1 
/NUMERATOR 

/DENOMINATOR 
/INTERCHANGE Xl,Y1 


/PUT Y2 INTO X2 


/GET_ A DYL 
/GET A DXL 


VCTA, 


JMS VCTGTTX 
CLA 

TAD VCTXT+4” 
CIA 

DCA VCTTMP-2 
TAD VCTX1+4 
SNL 
CIA 

DCA VC 1X1+4“ 


/END POINT TEST VALUE 
/GET STEP SIZE 

/SET TO STEP X_BKWDS (X2<Xl) 



/CALCULATE INTERCEPT 


TAD VCTXT 
JMS VCTMUY 
CT7T 

TAD VCTX1+1 
DCA VCTTMP 


- /biYl- M*XT 

/INTERCEPT 


/BEGIN DISPLAY 


VCTGC 


JMS" VCTGDX" 
TAD VCTTMP-2 
SPA CLA 
JMP I VCT 
TAD VCTX1 
TAD VCTX1+4 


/EXIT WHEN ABS(X2-X)<»STEPSllE 
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VCfDXY, JMP T- 

DCA VCTX1 
TAD VCTX1 
JM3 VCTMUY 
TAD VCTTMP 
JMP . 

DCA VCTX1+I 
DIX 

JMP VCTGO 

/ROUTINE TO CALC ABSCX2-X1) 

VCTGDX, 00 
TAD 
CIA 
TAD 
SPA 
CIA 
JMP 

/ROUTINE TO MULT AC BY SLOPE 

VCTMUY, 00 

MQL MUY 

00 - 

DVI 
00 

CLA MQA 
JMP . 

JMP I VCTMUY 


VCTX1, 00 
00 
00 
00 
00 

VCTTMP, .-00- 

/VCT CONSTANTS 

NOP 

41 

-177T- 

VCTX1 

-5 

DYL 

DXL 


7NU M ERA T UR - 

/DENOMINATOR 

/NOP OR CIAC+VE OR -VE SLOPE) 


VCTX1 

CLL 

VCTX1+2 


7DXlr~O R ' DYL ~ 
/X 

/M*X 
/M*X+B 
/DYL OR DXL 


/INTENSIFY 


5 






















































